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1 static java_lang_Object * popTop (localDeque *dq){ 

2 dequeAge oldAge = dq->age; 

3 unsigned int localBot = dq->bot; 

4 if (localBot == oldAge.top) 

5 return NULL; 

6 java_lang_Object * task = dq->objects[oldAge.top]; 

7 dequeAge newAge = oldAge; 

8 if(++newAge.top==dq->physQdepth) newAge.top = 0; 

9 dequeueAge tempAge = (dequeAge) caslnt((int) newAge, 

10 (int) oldAge, 

1 1 (int*) &dq->age); /*atomic compare-and-swap*/ 

12 if(tempAge == oldAge) 

1 3 return task; 

14 return NULL; 

15 } 

FIG. 7 

1 static void dequePush (localDeque *dq, java_lang_Object *obj) { 

2 unsigned int localBot = dq->bot; 

3 dequeAge oldAge = dq->age; 

4 if (dequeNumberOfElements (localBot, oldAge.top, dq) == dq->physQdepth-1 ) { 

5 dequeOverflow(dq); 

6 localBot = dq->bot; 

7 } 

8 setArrayElement (localBot, dq, obj); 

9 if (++localBot == dq->physQdepth) localBot = 0; 

10 dq->bot = localBot; 

11 } 

1 static int dequeNumberOfElements(unsigned int localBot, unsigned int localTop, 

2 localDeque *dq) { 

3 int diff = localBot - localTop; 

4 if (diff < 0) 

5 diff = diff + dq->physQdepth; 

6 return diff; 

7 } 

1 static void setArrayElement(int index, 

2 localDeque *dq, 

3 java_lang_Object *obj) { 

4 dq->objects[index] = obj; 

5 } 

FIG. 8 
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static java_lang_Object *dequePopWork (localDeque *dq) { 
unsigned int localBot = dq->bot; 
java_lang_Object *obj = NULL; 
dequeAge oldAge, newAge; 

int numElems = dequeNumberOfElements (localBot, dq ->age.top, dq); 
if (numElems == 0) 

return NULL; 
if (numElems > dq->threshold) { 

while ((obj == NULL) && 

(dequeNumberOfElements (localBot, dq->age.top, dq) > dq->threshold)) 

{ 

obj = popTop(dq) 

} 

if (obj != NULL) 
return obj; 

} 

if(~localBot == -1) localBot = dq->physQdepth - 1; 
dq->bot = localBot; 
obj = getArrayElement (localBot, dq); 
oldAge = dq->age; /* It might have changed */ 
if (dequeNumberOfElements (localBot, oldAge.top, dq) > 0) return obj; 
newAge.tag = oldAge.tag + 1 ; 
newAge.top = oldAge.top 
if (localBot == oldAge.top) { 
dequeAge tempAge; 

tempAge = (dequeAge) caslnt ((int) newAge, 
(int) oldAge, 
(int*) &dq->age); 
if (tempAge == oldAge) return obj; 

} 

dq->age = newAge; 
return NULL; 

} 

static void setArrayElement(int index, 
localDeque *dq, 
java_lang_Object *obj) { 
dq->objects[index] = obj; 

} 
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1 java_lang_Object *dequeFindWork(localDeque *dq) { 

2 java_lang_Object *result = findWorkHelper(dq); 

3 globalDeques *gdqs = dq->gdeques; 

4 if (result == NULL) { 

5 mark_self_inactive(dq->index, &gdqs->statusBitmap); I* You have no work */ 

6 } 

7 while (result == NULL) { 

8 if (!gdqs->statusBitmap) return NULL; /* No one has any work. Terminate. 7 

9 poll(NULL, NULL, 0); 

10 if (checkForWork(dq)) { /* You don't have any work, but there is some either 

11 on the overflow queue, or in another thread's work 

12 queue 7 

1 3 mark_self_active(dq->index, &gdqs->statusBitmap); /* Looking for work 7 

14 result = findWorkHelper(dq); 

15 if (result == NULL) { 

16 mark_self_inactive(dq->index, &gdqs->statusBitmap); 

17 } 

18 } 

Ejg } 

£20 return result; 
S 21 > 

si.ii 

"fj 1 java_lang_Object *findWorkHelper(localDeque *dq) { 

,h 2 java_lang_Object *task = findWorklnOverflowList(dq); 

di 3 if (task == NULL) { 

s 4 task = stealWork(dq); 

g 5 } 

6 return task; 

rj? } 

--j 

; J 1 static void mark_self_inactive(int self, int *pStatusBitmap) { 

" 2 int oldValue.newValue; 

3 do{ 

4 oldValue = *pStatusBitmap; 

5 newValue = oldValue & (~(1 «self)); 

6 newValue = caslnt(newValue, oldValue, pStatusBitmap); 

7 } while (newValue != oldValue) ; 

8 } 

1 static void mark_self_active(int self, int *pStatusBitmap) { 

2 int oldValue.newValue; 

3 do{ 

4 oldValue = *pStatusBitmap; 

5 newValue = oldValue | (1«self); 

6 newValue = caslnt(newValue, oldValue, pStatusBitmap); 

7 } while (newValue != oldValue) ; 

8 } 
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1 static java_lang_Object *stealWork(localDeque *dq) { 



2 globalDeques *gdqs = dq->gdeques; 

3 int degree = gdqs->numDeques; 

4 int iterations = 2 * degree; 

5 int i = 0; 

6 while < iterations) { 

7 localDeque *dqToSteal = pickQueueToStealFrom(gdqs, dq); 

8 if (dqToSteal->bot > dqToSteal->age.top) { 

9 java_lang_Ob]ect *task = popTop(dqToSteal); 

10 if(!task) poll(NULL, NULL, 0); 

1 1 else return task; 

12 } 

13 } 

14 return NULL; 



15 } 
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=fi 1 static bool_t checkForWork(localDeque *dq) { 

;*l 2 globalDeques *gdqs = dq->gdeques; 

•W 3 return gdqs->classesWithWork || peekDeque(dq); 

si 4 > 

w4 

fW 1 static bool_t peekDeque(localDeque *dq) { 



^ 2 globalDeques *gdqs = dq->gdeques; 

J J 3 int degree = gdqs->numDeques; 

4 inti; 

5 for (i = 0; i < 2 * degree; i++) { 

6 localDeque *dqToPeek = pickQueueToStealFrom(gdqs, dq); 

7 if (dqToPeek->bot > dqToPeek->age.top) { 

8 return TRUE; 

9 } 

10 } 

11 return FALSE; 



12 } 
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